home *** CD-ROM | disk | FTP | other *** search
- 10 REM FILE MAKER
- 20 REM WRITTEN BY KURT BRANDON
- 30 DN=PEEK(186):REM DRIVE ADDRESS
- 40 QT$=CHR$(34):OPEN15,DN,15
- 50 PRINT"":FORI=65TO90
- 60 OPEN8,DN,8,CHR$(I)+",L,"+CHR$(54)
- 70 PRINT"MAKING FILE: "QT$CHR$(I)QT$
- 80 RN=10:GOSUB170:GOSUB170
- 90 PRINT#8,CHR$(255);
- 100 RN=1:GOSUB170:GOSUB170
- 110 PRINT#8,RN
- 120 CLOSE8
- 130 NEXT:CLOSE15
- 140 END
- 150 :
- 160 REM\ POSITION & ERROR SUB
- 170 RH=INT(RN/256):RL=RN-(256*RH)
- 180 PRINT#15,"P"+CHR$(96+8)+CHR$(RL)+CHR$(RH)+CHR$(1)
- 190 INPUT#15,E,E$,AA,B
- 200 IF E=0ORE=50THENRETURN
- 210 PRINTE;E$;AA;B
- 220 CLOSE8:CLOSE15:END
-